property gDesturl : ""

on specify_destination()
	local prefsFile
	set prefsFile to open for access file "FTP Server Settings"
	set gDesturl to read prefsFile
	close access of the prefsFile
end specify_destination

on open doc
	specify_destination()
	
	with timeout of 60000 seconds
		tell application "Fetch"
			put into url gDesturl item doc
			beep
			-- quit
		end tell
	end timeout
	
end open

specify_destination()